home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / biz / swood / fw_font.lha / FW_Font / FontLook-Auto.fwrexx < prev    next >
Text File  |  1997-04-27  |  5KB  |  224 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. R='0A'X
  4. Address='FinalW'
  5. Options results
  6. STATUS PORTNAME
  7. FW=result
  8. address=FW
  9. SIGNAL ON BREAK_C
  10. 'ShowMessage 2 0 "FontLook - Auto V2.72 - 27.04.97" "    Neu: Das Shareware-Paket" "Info im FontLook-Auto-Guide" ":-)" "Ok" "(-:"'
  11. 'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr jetziges Dokument wird gelöscht!" "Ja" "Abbruch" ""'
  12. if result=2 then call BREAK_C
  13. Cleardoc Force
  14. 'ShowMessage 2 0 "Codes oder Layout" "" "" "Codes" "Layout" ""'
  15. cl=result
  16. 'ShowMessage 2 0 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""'
  17. ba=result
  18. Temp="ram:fonts"
  19. if ~show('L',"rexxreqtools.library") then;do
  20. if ~addlib('rexxreqtools.library',0,-30,0) then;do
  21. 'ShowMessage 1 1 "Fehler...." "Benötige RexxReqTools.library" " A B B R U C H ! !" "Okay" "" ""'
  22. exit
  23. end
  24. end
  25. dir=rtfilerequest("FWFonts/SWOLFonts/",,"Verzeichnis auswählen...",,"rt_pubscrname=FinalWriterPubScreen rtfi_flags = freqf_nofiles")
  26. if dir="" then;do
  27. 'ShowMessage 1 1 "Kein Verzeichnis ausgewählt!" "   A B B R U C H ! !" "" "Okay" "" ""'
  28. exit
  29. end
  30. dir=d2c(34)||dir||d2c(34)
  31. address command 'list ' dir||' to=' Temp||' files lformat "%s%s"'
  32. If OPEN('file',Temp,"R") then
  33. If Seek("file",0,"E")=0 then;do
  34. 'ShowMessage 1 1 "Verzeichnis ist leer" " A B B R U C H ! !" "" "Okay" "" ""'
  35. address "REXX"
  36. close("file")
  37. EXIT
  38. end
  39. address "REXX"
  40. close("file")
  41. address command 'sort ' Temp Temp
  42. OPEN('file',Temp,"R")
  43. address(FW)
  44. 'ShowMessage 1 0 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""'
  45. lm=result
  46. 'ShowMessage 1 0 "Wie geht es weiter?" "" "" "Speichern" "Speichern & Drucken" "Drucken"'
  47. wgw=result
  48. DO WHILE 1
  49. FontName=ReadLn('file')
  50. IF EOF('file') THEN;do
  51. address "REXX"
  52. close('file')
  53. call Ende
  54. End
  55. IF ba=2 THEN;DO
  56. status WINDOW
  57. parse VAR result links oben width height minwidth minheight maxwidth maxheight
  58. sizewindow minwidth minheight
  59. End
  60. GetDocItemPrefs Decimal
  61. Punkt=Result
  62. If Punkt="Comma" then DocItemPrefs Decimal Period
  63. TextTool
  64. Font FontName
  65. a=RC
  66. If a=0 then;do
  67. Type d2c(32)
  68. BackSpace
  69. status FontPath
  70. FullFontName=result
  71. pos=max(index(FullFontName,':'),lastpos('/',FullFontName))
  72. IF (pos~=0) THEN
  73. FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos)
  74. END
  75. IF ba=2 THEN View 20
  76. Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  77. SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  78. GraphicTool
  79. LinePrefs LineWt .5
  80. DrawLine 1 2 3.5 20 3.5
  81. DrawLine 1 2 26 20 26
  82. If lm=1 then DrawLine 1 .5 14.85 1 14.85
  83. TextTool
  84. If cl=1 then;do
  85. Do i=0 to 13
  86. SetTab i*1.3+0.8 Right
  87. End
  88. NameFont="FWDocs/Codes-"||FontName
  89. Justify Center
  90. Font Softsans
  91. FontSize 18
  92. Type FontName||R||R
  93. a=0
  94. DO w=1 to 15
  95. Font Softsans
  96. FontSize 8
  97. DO x=a+33 to a+46
  98. Type d2c(9)||x|| d2c(32)|| d2c(x)
  99. END
  100. Type R
  101. Font FontName
  102. FontSize 24
  103. DO x=a+33 to a+46
  104. Type d2c(9)
  105. Type d2c(x)
  106. END
  107. Type R
  108. a=a+14
  109. END
  110. Font Softsans
  111. FontSize 8
  112. DO x=a+33 to a+45
  113. Type d2c(9)||x|| d2c(32)|| d2c(x)
  114. END
  115. Type d2c(9)||R
  116. Font FontName
  117. FontSize 24
  118. DO x=a+33 to a+45
  119. Type d2c(9)
  120. Type d2c(x)
  121. END
  122. Type d2c(9)||R
  123. FontSize 12
  124. Type d2c(9)||R
  125. Font Softsans
  126. FontSize 8
  127. Justify Right
  128. Type Date(E)" - "FullFontName
  129. END
  130. If cl=2 then;do
  131. Justify Center
  132. NameFont="FWDocs/Layout-"||FontName
  133. Font Softsans
  134. FontSize 18
  135. Type FontName||R
  136. Justify Left
  137. Font FontName
  138. FontSize 8
  139. Type R||"This is 8-point type - not easy to read!"||R
  140. FontSize 9
  141. Type "9-Point type is about the smallest readable size."||R
  142. FontSize 10
  143. Type "With 10-point type, we have a normal text size."||R
  144. FontSize 12
  145. Type "With some Fonts, 12-point type is easier to read."||R
  146. FontSize 14
  147. Type "14-point type is good for subheadings."||R
  148. FontSize 16
  149. Type "For larger subheadings, try 16-point type."||R
  150. FontSize 18
  151. Type "18-point type makes nice small headlines."||R
  152. FontSize 24
  153. Type "24-point type is for medium headlines."||R
  154. FontSize 36
  155. Type "36-point is for larger ones."||R
  156. FontSize 48
  157. Type "48-point almost shouts!"||R||R
  158. FontSize 12
  159. Font SoftSans
  160. Type "NORMAL"||R
  161. FontSize 10
  162. Font FontName
  163. Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  164. Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  165. Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R||R
  166. Font SoftSans
  167. Type "ERWEITERTER SCHRIFTCODE"||R
  168. FontSize 10
  169. Font FontName
  170. j=0
  171. Do i=1 to 4
  172. Do k=128+j to 159+j
  173. Type d2c(k)
  174. End
  175. Type R
  176. j=j+32
  177. End
  178. Status BodyTextHeight
  179. th=result
  180. FG=26.24-2.113-th
  181. FG=Trunc(FG*8/0.34)
  182. FontSize FG
  183. Type d2c(9)
  184. Font SoftSans
  185. FontSize 8
  186. Type R
  187. Justify Right
  188. Type Date(E)" - "FullFontName
  189. End
  190. call WH
  191. If wgw~=3 then
  192. Save NameFont
  193. If wgw=2 then
  194. Print
  195. If wgw=3 then
  196. Print
  197. Cleardoc force
  198. END
  199. else;do
  200. call WH
  201. 'ShowMessage 1 1 "FW kann diesen Font nicht anzeigen..." "Es ist kein FW typischer Font..." "" "Okay" "" ""'
  202. end
  203. END
  204. Ende:
  205. Address(FW)
  206. If cl=1 then 'ShowMessage 2 1 "Die Dokumente sind im FWDocs-Drawer" "zu finden. Erkennbar am «Codes-.....«" "Vielen Dank für die Benutzung." "@-`-" "Bitte" ":-))"'
  207. If cl=2 then 'ShowMessage 2 1 "Die Dokumente sind im FWDocs-Drawer" "zu finden. Erkennbar am «Layout-.....«" "Vielen Dank für die Benutzung." "@-`-" "Bitte" ":-))"'
  208. 'ShowMessage 2 1 "© Heiko Schröder" "email: age@thepentagon.com" "http://yi.com/home/SchroederHeiko" "Oki" "Doki" ":-))"'
  209. Address command "delete ram:fonts QUIET"
  210. EXIT
  211. BREAK_C:
  212. 'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  213. call WH
  214. address "REXX"
  215. CLOSE("file")
  216. Address command "delete ram:fonts QUIET"
  217. EXIT
  218. WH:
  219. If ba=2 then;do
  220. View
  221. sizewindow width height
  222. End
  223. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  224. Return